home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 081 / sirius50.arc / SIR050S.ARC / RECEIPT.SIR < prev    next >
Text File  |  1987-06-29  |  2KB  |  61 lines
  1. ;
  2. ;                           RECEIPT.SIR
  3. ;
  4. ; Now Opus and Fido systems can handle SEAdog file requests:
  5. ;
  6. ; Review entire netmail area, generating return receipts as requested.
  7. ; Idea and original script by Pat McDonald (109/657).
  8. ;
  9. ; (See also RECEIPTG.SIR for a version of this same idea which uses
  10. ;  Sirius' logical group facility.)
  11. ;
  12. (View (Continuous)
  13.  View (Xpertise (High))
  14.  Area (Netmail)
  15. ;
  16. ; Make sure all messages are scanned.
  17. ;
  18.  Group (Define ('A'))
  19.  0  Next
  20.  ! (While (@Msg# LE @HighMsg#))
  21.     ! (If (@ReceiptReq AND NOT @Local))
  22.        Tag
  23. ;
  24. ;   Make a copy of the receipt request header, and log it.
  25. ;
  26.        Copy (High  Take)
  27.        ! (If (NOT @NoBody))
  28.           Doctor (Body (Delete (1 999)))
  29.           ! (End)
  30.        Copy (Flat file ('=RECEIPT.TMP'))
  31.        Copy (Flat file ('RECEIPT.LOG'))
  32.        Kill ('y')
  33.        Back
  34. ;
  35. ;   Generate the return receipt.
  36. ;
  37.        Reply (Handling (Kill/sent)
  38.               Attachments ()
  39.               Requests ()
  40.               Private ('y')
  41.               Subject ('Receipt')
  42.               Prefix ()
  43.               Body ('This is to acknowledge receipt of the following message:'
  44.                     ' ')
  45.               Bodywork (Get ('RECEIPT.TMP'  2)
  46.               Append (' '
  47.                       '       --- Automatic Message from Sirius 0.50'))
  48.               Save ())
  49. ;
  50. ;   Remove the receipt-request flag.
  51. ;
  52.        Doctor (Netmail (Requests (Receipt)))
  53.        ! (End)
  54.     Next
  55.     ! (End)
  56. ;
  57.  Out ('All return receipt requests have now been logged and acknowledged.'))
  58. ;
  59. ;   Throw away the just-created RECEIPT.TMP file at your convenience.
  60. ;
  61.